home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 2010 April / PCWorld0410.iso / hity wydania / GIMP 2.6.8 / gimp-2.6.8-i686-setup.exe / {app} / share / gimp / 2.0 / scripts / basic2-logo.scm < prev    next >
Text File  |  2009-12-15  |  4KB  |  128 lines
  1. ;  HIGHLIGHT-DROP-SHADOW-LOGO
  2. ;  draw the specified text over a background with a drop shadow and a highlight
  3.  
  4. (define (apply-basic2-logo-effect img
  5.                                   logo-layer
  6.                                   bg-color
  7.                                   text-color)
  8.  
  9.   (define (color-highlight color)
  10.     (let (
  11.          (r (car color))
  12.          (g (cadr color))
  13.          (b (caddr color))
  14.          )
  15.  
  16.       (set! r (+ r (* (- 255 r) 0.75)))
  17.       (set! g (+ g (* (- 255 g) 0.75)))
  18.       (set! b (+ b (* (- 255 b) 0.75)))
  19.       (list r g b)
  20.     )
  21.   )
  22.  
  23.   (let* (
  24.         (width (car (gimp-drawable-width logo-layer)))
  25.         (height (car (gimp-drawable-height logo-layer)))
  26.         (posx (- (car (gimp-drawable-offsets logo-layer))))
  27.         (posy (- (cadr (gimp-drawable-offsets logo-layer))))
  28.         (bg-layer (car (gimp-layer-new img width height RGB-IMAGE "Background" 100 NORMAL-MODE)))
  29.         (highlight-layer (car (gimp-layer-copy logo-layer TRUE)))
  30.         (shadow-layer (car (gimp-layer-new img width height RGBA-IMAGE "Shadow" 100 MULTIPLY-MODE)))
  31.         )
  32.  
  33.     (gimp-context-push)
  34.  
  35.     (gimp-selection-none img)
  36.     (script-fu-util-image-resize-from-layer img logo-layer)
  37.     (script-fu-util-image-add-layers img highlight-layer shadow-layer bg-layer)
  38.     (gimp-context-set-foreground text-color)
  39.     (gimp-layer-set-lock-alpha logo-layer TRUE)
  40.     (gimp-edit-fill logo-layer FOREGROUND-FILL)
  41.     (gimp-edit-clear shadow-layer)
  42.     (gimp-context-set-foreground (color-highlight text-color))
  43.     (gimp-layer-set-lock-alpha highlight-layer TRUE)
  44.     (gimp-edit-fill highlight-layer FOREGROUND-FILL)
  45.     (gimp-context-set-background bg-color)
  46.     (gimp-drawable-fill bg-layer BACKGROUND-FILL)
  47.     (gimp-selection-layer-alpha logo-layer)
  48.     (gimp-context-set-background '(0 0 0))
  49.     (gimp-selection-feather img 7.5)
  50.     (gimp-edit-fill shadow-layer BACKGROUND-FILL)
  51.     (gimp-selection-none img)
  52.     (gimp-context-set-foreground '(255 255 255))
  53.  
  54.     (gimp-edit-blend logo-layer FG-BG-RGB-MODE MULTIPLY-MODE
  55.                      GRADIENT-RADIAL 100 20 REPEAT-NONE FALSE
  56.                      FALSE 0 0 TRUE
  57.                      0 0 width height)
  58.  
  59.     (gimp-layer-translate shadow-layer 3 3)
  60.     (gimp-layer-translate highlight-layer (- posx 2) (- posy 2))
  61.     (gimp-drawable-set-name highlight-layer "Highlight")
  62.  
  63.     (gimp-context-pop)
  64.   )
  65. )
  66.  
  67. (define (script-fu-basic2-logo-alpha img
  68.                                      logo-layer
  69.                                      bg-color
  70.                                      text-color)
  71.   (begin
  72.     (gimp-image-undo-group-start img)
  73.     (apply-basic2-logo-effect img logo-layer bg-color text-color)
  74.     (gimp-image-undo-group-end img)
  75.     (gimp-displays-flush)
  76.   )
  77. )
  78.  
  79. (script-fu-register "script-fu-basic2-logo-alpha"
  80.     _"B_asic II..."
  81.     _"Add a shadow and a highlight to the selected region (or alpha)"
  82.     "Spencer Kimball"
  83.     "Spencer Kimball"
  84.     "1996"
  85.     "RGBA"
  86.     SF-IMAGE      "Image"             0
  87.     SF-DRAWABLE   "Drawable"          0
  88.     SF-COLOR      _"Background color" "white"
  89.     SF-COLOR      _"Text color"       '(206 6 50)
  90. )
  91.  
  92. (define (script-fu-basic2-logo text
  93.                                size
  94.                                font
  95.                                bg-color
  96.                                text-color)
  97.   (let* (
  98.         (img (car (gimp-image-new 256 256 RGB)))
  99.         (text-layer (car (gimp-text-fontname img -1 0 0 text 10 TRUE size PIXELS font)))
  100.         )
  101.  
  102.     (gimp-image-undo-disable img)
  103.     (apply-basic2-logo-effect img text-layer bg-color text-color)
  104.     (gimp-image-undo-enable img)
  105.     (gimp-display-new img)
  106.   )
  107. )
  108.  
  109. (script-fu-menu-register "script-fu-basic2-logo-alpha"
  110.                          "<Image>/Filters/Alpha to Logo")
  111.  
  112. (script-fu-register "script-fu-basic2-logo"
  113.     _"B_asic II..."
  114.     _"Create a simple logo with a shadow and a highlight"
  115.     "Spencer Kimball"
  116.     "Spencer Kimball"
  117.     "1996"
  118.     ""
  119.     SF-STRING     _"Text"               "SCRIPT-FU"
  120.     SF-ADJUSTMENT _"Font size (pixels)" '(150 2 1000 1 10 0 1)
  121.     SF-FONT       _"Font"               "Sans Bold"
  122.     SF-COLOR      _"Background color"   "white"
  123.     SF-COLOR      _"Text color"         '(206 6 50)
  124. )
  125.  
  126. (script-fu-menu-register "script-fu-basic2-logo"
  127.                          "<Image>/File/Create/Logos")
  128.